0 A=A+1:IFA=1THENLOAD"DT.FONT",8,1
1 POKE55,255:POKE56,55:CLR
2 DIM G$(5):BK$="[164]":POKE53272,(PEEK(53272)AND240)OR14
5 POKE53280,5:POKE53281,7:GOTO100
10 POKE54276,.:POKE54296,15:POKE54273,H:POKE54272,L
20 POKE54277,10:POKE54278,10:POKE54276,33:RETURN
100 PRINT"[147][144] DIVISION TUTOR - RICHARD L. EBERHARDY":J=RND(-TI)
110 FORJ=1TO10
120 A%=10*RND(1)+1:B%=10*RND(1)+1:C%=A%*B%
130 PRINT"WHAT IS";C%;"/";B%"?  TYPE 'Q' TO QUIT.":PRINT">"BK$;
135 NC=5:GOSUB1000:D=VAL(A$):IFA$="Q"THEN6000
140 IFD=A%THENH=50:GOSUB10:PRINT"CORRECT!":E=E+1
150 IFD<>A%THENH=5:GOSUB10:PRINT"WRONG! THE ANSWER IS";A%
160 NEXT
170 PRINT"YOU GOT";E;"OUT OF 10 RIGHT, OR";E*10;"[157]%"
180 PRINT"WOULD YOU LIKE TO DO MORE?    (Y-N)":PRINT">"BK$;
190 NC=1:GOSUB1000:IFA$<>"Y"ANDA$<>"N"THENPRINT"[145][145][145][145]";:GOTO180
200 IFA$="Y"THEN1
210 GOTO6000
1000 FORA=1TONC
1020 GETA$:IFA$=""THEN1020
1025 IFA$=CHR$(13)THENPRINT"[157] ":GOTO1050
1026 IF(A$=CHR$(20))AND(A>1)THENA=A-1:PRINT"[157][157]  [157][157]"BK$;:GOTO1020
1030 IFA$<"0"ORA$>"Z"THEN1020
1040 G$(A)=A$:PRINT"[157]"A$BK$;:NEXT
1045 PRINT"[157] "
1050 A$="":FORB=1TOA-1:A$=A$+G$(B):NEXT:RETURN
6000 PRINT"[147]";:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
6005 IFER<>63THENEND
6010 POKE55,.:POKE56,160:POKE53272,23:LOAD"HELLO CONNECT",8